home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
recio214.zip
/
TESTCOG.C
< prev
next >
Wrap
C/C++ Source or Header
|
1996-06-14
|
11KB
|
322 lines
/* testcog.c - tests column delimited get functions */
/* recio version 2.14, release June 14, 1996 */
/* Copyright (C) 1994-1996, William Pierpoint */
#include <ctype.h>
#include <errno.h>
#include <limits.h>
#include <float.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include "recio.h"
/* errors normally to stderr; but for test purposes, stdout */
#define errout stdout
/****************************************************************************/
void /* return nothing */
rfixnumber( /* fix number */
REC *rp, /* record pointer */
int errnum, /* error number */
void (*rfix)(REC *)) /* rfix function pointer */
/****************************************************************************/
{
switch (errnum) {
case R_EMISDAT:
fprintf(errout, "...substituting zero\n");
rsetfldstr(rp, "0");
break;
default:
fprintf(errout, "...substituting best guess\n");
rfix(rp);
break;
}
}
/****************************************************************************/
void /* return nothing */
rfixchar( /* fix character */
REC *rp, /* record pointer */
int errnum, /* error number */
void (*rfix)(REC *)) /* rfix function pointer */
/****************************************************************************/
{
switch (errnum) {
case R_EMISDAT:
fprintf(errout, "...substituting the letter N\n");
rsetfldstr(rp, "N");
break;
default:
fprintf(errout, "...substituting best guess\n");
rfix(rp);
break;
}
}
/****************************************************************************/
void /* return nothing */
rfixtime( /* fix time */
REC *rp, /* record pointer */
int errnum, /* error number */
void (*rfix)(REC *)) /* rfix function pointer */
/****************************************************************************/
{
switch (errnum) {
case R_EMISDAT:
fprintf(errout, "...substituting 1/1/70 00:00:00\n");
rsetfldstr(rp, "1/1/70 0:0:0");
break;
default:
fprintf(errout, "...substituting best guess\n");
rfix(rp);
break;
}
}
/****************************************************************************/
void /* returns nothing */
rwarnfn( /* recio callback warning function */
REC *rp) /* record pointer */
/****************************************************************************/
{
if (risvalid(rp)) {
switch (rwarning(rp)) {
case R_WNOREG: /* atexit() full */
fprintf (errout, "WARNING %s\n", rwarnstr(rp));
break;
case R_WEMPSTR: /* empty data string */
fprintf(errout, "WARNING reading %s at record %lu and field %u -- %s\n",
rnames(rp), rrecno(rp), rfldno(rp), rwarnstr(rp));
break;
}
}
}
/****************************************************************************/
void /* returns nothing */
errnofn( /* errno callback error function */
void) /* no parameters */
/****************************************************************************/
{
switch (errno) {
/* non-fatal errors */
case EACCES:
case EMFILE:
fprintf(errout, "ERROR: %s\n", strerror(errno));
break;
/* fatal errors (EINVAL, ENOMEM) */
default:
fprintf(errout, "FATAL ERROR: %s\n", strerror(errno));
exit(EXIT_FAILURE);
break;
}
}
/****************************************************************************/
void /* returns nothing */
rerrfn( /* recio callback error function */
REC *rp) /* record pointer */
/****************************************************************************/
{
int errnum; /* error number */
if (risvalid(rp)) {
/* if reof indicator set */
if (reof(rp)) {
fprintf(errout, "ERROR reading %s: "
"tried to read past end of file\n", rnames(rp));
/* else rerror indicator set */
} else {
/* determine cause of error */
errnum = rerror(rp);
switch (errnum) {
/* data errors */
case R_EDOM: /* data out of domain */
case R_ERANGE: /* data out of range */
case R_EINVDAT: /* invalid data */
case R_EMISDAT: /* missing data */
fprintf(errout, "DATA ERROR reading %s at record %lu and field %u "
"-- %s\n", rnames(rp), rrecno(rp), rfldno(rp), rerrstr(rp));
/* determine context */
switch (rcxtno(rp)) {
case RECIN:
/* determine field */
switch (rfldno(rp)) {
case 1: /* the integer field i */
rfixnumber(rp, errnum, rfixi);
break;
case 2: /* the unsigned integer field ui */
rfixnumber(rp, errnum, rfixui);
break;
case 3: /* the long field l */
rfixnumber(rp, errnum, rfixl);
break;
case 4: /* the unsigned long field ul */
rfixnumber(rp, errnum, rfixul);
break;
case 5: /* the float field f */
rfixnumber(rp, errnum, rfixf);
break;
case 6: /* the double field d */
rfixnumber(rp, errnum, rfixd);
break;
case 7: /* the character field ch */
rfixchar(rp, errnum, rfixc);
break;
case 9: /* the time field t */
rfixtime(rp, errnum, rfixt);
break;
default: /* programming error - no case for field */
fprintf(errout, "FATAL ERROR %s -- code missing for field %u\n",
rnames(rp), rfldno(rp));
break;
}
break;
default: /* programming error - missing context number */
fprintf(errout, "FATAL ERROR %s -- missing context number\n",
rnames(rp));
exit(EXIT_FAILURE);
break;
}
break;
/* fatal errors (R_EINVMOD, R_EINVAL, R_ENOMEM) */
default:
fprintf(errout, "FATAL ERROR %s -- %s\n", rnames(rp), rerrstr(rp));
exit(EXIT_FAILURE);
break;
}
}
/* invalid record pointer */
} else {
errnofn();
}
}
/****************************************************************************/
void putcolnumbers(void)
/****************************************************************************/
{
puts(" 1 2 3 4 5 6 7");
puts("1234567890123456789012345678901234567890123456789012345678901234567890123456789");
}
/****************************************************************************
main
*****************************************************************************/
#include <io.h>
int main()
{
int i; /* integer field */
unsigned int ui; /* unsigned integer field */
long l; /* long field */
unsigned long ul; /* unsigned long field */
float f;